home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Educ / Higher Ed / G-M / MacPhaseExtras.sit / MacPhase Extras / Macros / MakeClut.m < prev    next >
Encoding:
Text File  |  1994-04-21  |  311 b   |  15 lines  |  [TEXT/DAHN]
  1. macro MakeClut;
  2. {    This macro demonstrates how to write LUT entries. }
  3. {    The new LUT could be saved by calling SaveClut.  }
  4. var
  5.     integer : r,g,b;
  6.     longint : index;
  7. begin
  8.     for(index,1,254)
  9.         r:=EvalNumber(index,+,0);
  10.         g:=EvalNumber(255,-,index);
  11.         b:=125;
  12.         SetClutValues(index,r,g,b);
  13.     endfor;
  14.     UpdateClut;
  15. end;